(Info-find-node): Don't treat file name `dir' specially

if it comes with a directory name.

diff --git a/lisp/info.el b/lisp/info.el
index bb232b339100720d6b149e9c78465fe677f62fdf..4d6813aa504d8da3aba67ae24e63ba036cceafbf 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -259,7 +259,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
   (if filename
       (let (temp temp-downcase found)
        (setq filename (substitute-in-file-name filename))
-       (if (string= (downcase (file-name-nondirectory filename)) "dir")
+       (if (string= (downcase filename) "dir")
            (setq found t)
          (let ((dirs (if (string-match "^\\./" filename)
                          ;; If specified name starts with `./'